Projeto Finanças

Usaremos seguintes ações da bolsa :

Utilizamos a API Yahoo! Finance para conseguir os dados utilizados para as analises a seguir.

Analisando os dados em uma tabela:

Code
library(tidyverse)
library(dplyr)
library(ggplot2)
library(timeSeries)
library(fPortfolio)
library(quantmod)
library(cowplot) 
library(lattice)
library(timetk)
library(quantmod)
library(DT) 


TICKERS <- c(
  "BRFS3.SA",
  "JBSS3.SA",
  "BEEF3.SA",
  "MRFG3.SA",
  "TSN",
  "HRL",
  "GIS"
)





portfolioPrices <- NULL
for ( Ticker in TICKERS )
  portfolioPrices <- cbind(
    portfolioPrices, 
    getSymbols(
      Ticker,
      src = "yahoo",
      from = "2019-01-01",
      auto.assign = FALSE
    )[,4]
  )

portfolioPrices <- portfolioPrices[apply(portfolioPrices, 1, function(x) all(!is.na(x))),]

colnames(portfolioPrices) <- c(
  "BRFS3",
  "JBSS3",
  "BEEF3",
  "MRFG3",
  "TSN",
  "HRL",
  "GIS"
)
Code
# Visualizar com DT
datatable(tail(portfolioPrices), options = list(pageLength = 10, scrollX = TRUE)) 

E então a gente faz uma analise temporal dos dados, tendo o eixo X sendo a variável tempo, e o eixo Y sendo o preço:

Code
portfolioPrices |> as.data.frame() |>
  mutate(
    time = seq_along(GIS)
  ) |>
  pivot_longer(
    !time,
    names_to = "Variables",
    values_to = "Value"  
  ) |>
  group_by(Variables) |>
  plot_time_series(
    time,
    Value,
    .interactive = F, # Change for TRUE for better visualization
    .facet_ncol = 2,
    .smooth = FALSE
  ) +
  theme(
    strip.background = element_rect(fill = "white", colour = "white")
  )

🔗 Dashboard